home *** CD-ROM | disk | FTP | other *** search
/ POINT Software Programming / PPROG1.ISO / pascal / swag / comm.swg / 0019_Get number of RS232 Ports.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1993-08-18  |  252 b   |  10 lines
  1. FUNCTION Serial_Ports : byte;
  2. { DESCRIPTION:
  3.     Gets the number of RS232 ports available in a system.
  4.   SAMPLE CALL:
  5.     NB := Serial_Ports; }
  6.  
  7. BEGIN { Serial_Ports }
  8.   Serial_Ports := (MemW[$0000:$0410] shl 4) shr 13;
  9. END; { Serial_Ports }
  10.